(ns dailyjob.flash
  (require [dailyjob.util :as u]))

(defn rm-jpg [path pred]
  (doall
   (for [[i f] (u/indexed (u/get-files path)) :when (pred i)]
     (.delete f))))